home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ozsi 9
/
Ozsi_09_1998_Tide_Side_B.d64
/
multi-scrl _rtn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
415b
|
14 lines
0 rem"[141][147][158]tomz/tide/the dark realm
9 [151]53281,0:[151]53280,0
10 [133]"loadclr";a$:a$[178]a$[170]" ":[153]"load
20 c$=chr$(20):m=len(a$):dima$(m)
30 forl=1tom:a$(l)=mid$(a$,l,1):next
40 forl=1tom:print"";:fork=1to5
50 print" "c$tab(38)a$(l):next:next
60 goto40:rem* type in your message and
70 rem*then hit return to view it with
80 rem*all five of its friends
90 rem*oh and feel free to color it in
100 rem*and use this multi-scroller in
110 rem*your own programs(if you wish)